inherited frmCidade: TfrmCidade
  Left = 402
  Top = 147
  Caption = ''
  ClientHeight = 452
  ClientWidth = 523
  OnCreate = nil
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 523
  end
  inherited Panel2: TPanel
    Width = 523
    Height = 415
    inherited Panel3: TPanel
      Width = 521
      Caption = 'Cidades'
      inherited GroupBox1: TGroupBox
        Left = 442
      end
    end
    inherited Panel4: TPanel
      Width = 521
      Height = 373
      object Label1: TLabel [0]
        Left = 15
        Top = 52
        Width = 33
        Height = 14
        Caption = 'C'#243'digo'
        FocusControl = EdtCidCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel [1]
        Left = 59
        Top = 52
        Width = 78
        Height = 14
        Caption = 'Nome da Cidade'
        FocusControl = EdtCidDescri
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel [2]
        Left = 15
        Top = 14
        Width = 33
        Height = 14
        Caption = 'Estado'
        FocusControl = EdtCidCodigo
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      inherited DBGrid1: TDBGrid
        Top = 168
        Width = 513
        Height = 182
        TabOrder = 6
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 513
      end
      object EdtCidCodigo: TDBEdit
        Left = 15
        Top = 66
        Width = 42
        Height = 20
        Hint = 'C'#243'digo da Cidade'
        CharCase = ecUpperCase
        DataField = 'CID_CODIGO'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnExit = EdtCidCodigoExit
      end
      object EdtCidDescri: TDBEdit
        Left = 59
        Top = 66
        Width = 297
        Height = 20
        Hint = 'Nome da Cidade'
        CharCase = ecUpperCase
        DataField = 'CID_DESCRI'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnExit = EdtCidDescriExit
      end
      object EdtEstCod: TDBEdit
        Left = 15
        Top = 27
        Width = 45
        Height = 21
        Hint = 'C'#243'digo do Estado'
        CharCase = ecUpperCase
        DataField = 'CID_ESTCOD'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Verdana'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtEstCodExit
      end
      object BtnEstCodigo: TBitBtn
        Left = 56
        Top = 26
        Width = 22
        Height = 23
        Hint = 'Consulta estados (UF) cadastrados'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BtnEstCodigoClick
      end
      object EdtEstNom: TEdit
        Left = 78
        Top = 29
        Width = 276
        Height = 19
        TabStop = False
        AutoSize = False
        CharCase = ecUpperCase
        Color = clBtnFace
        Ctl3D = False
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 4
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 88
        Width = 489
        Height = 73
        Caption = 'Dados do IBGE'
        TabOrder = 7
        object Label4: TLabel
          Left = 8
          Top = 20
          Width = 79
          Height = 13
          Caption = 'C'#243'digo do IBGE:'
          FocusControl = DBEdtCidadeIbge
        end
        object Label5: TLabel
          Left = 107
          Top = 20
          Width = 36
          Height = 13
          Caption = 'Estado:'
        end
        object Label6: TLabel
          Left = 168
          Top = 20
          Width = 36
          Height = 13
          Caption = 'Cidade:'
        end
        object DBEdtCidadeIbge: TDBEdit
          Left = 8
          Top = 36
          Width = 73
          Height = 21
          DataField = 'CID_IBGE_COD'
          DataSource = DtSrc
          TabOrder = 0
          OnExit = DBEdtCidadeIbgeExit
        end
        object stEstado: TStaticText
          Left = 107
          Top = 36
          Width = 58
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 1
        end
        object btnIbge: TBitBtn
          Left = 84
          Top = 36
          Width = 21
          Height = 21
          Caption = '...'
          Enabled = False
          TabOrder = 2
          OnClick = btnIbgeClick
        end
        object stCidade: TStaticText
          Left = 168
          Top = 36
          Width = 313
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 3
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    Left = 392
    Top = 56
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 136
  end
  object SQLC_Cidades: TSQLClientDataSet
    CommandText = 
      'select  * from CIDADES where cid_estcod=:pest and cid_codigo=:pc' +
      'od;'#13#10
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pest'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'pcod'
        ParamType = ptInput
        Value = ''
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 395
    Top = 115
    object SQLC_CidadesCID_ESTCOD: TStringField
      DisplayLabel = 'ESTADO'
      FieldName = 'CID_ESTCOD'
      Required = True
      Size = 2
    end
    object SQLC_CidadesCID_CODIGO: TStringField
      DisplayLabel = 'CODIGO CIDADE'
      FieldName = 'CID_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_CidadesCID_DESCRI: TStringField
      DisplayLabel = 'NOME CIDADE'
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 35
    end
    object SQLC_CidadesCID_IBGE_COD: TIntegerField
      DisplayLabel = 'C'#243'digo do IBGE:'
      FieldName = 'CID_IBGE_COD'
    end
  end
end
